score <- c(23,90,56,87,67,68,97,94,45,55,60,77,74,88)
GPA   <- c(0.0,4.0,0.0,3.7,1.5,1.5,4.0,4.0,0.0,0.0,1.0,2.7,2.0,3.7)